home *** CD-ROM | disk | FTP | other *** search
- object MDIChild: TMDIChild
- Left = 185
- Top = 155
- Width = 429
- Height = 215
- Caption = 'MDI Child'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsMDIChild
- Menu = MainMenu1
- Position = poDefault
- Visible = True
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object DBNavigator1: TDBNavigator
- Left = 0
- Top = 0
- Width = 421
- Height = 25
- DataSource = DataSource1
- Align = alTop
- TabOrder = 0
- end
- object PageControl1: TPageControl
- Left = 0
- Top = 25
- Width = 421
- Height = 144
- ActivePage = GridPage
- Align = alClient
- TabOrder = 1
- object GridPage: TTabSheet
- Caption = 'GridPage'
- TabVisible = False
- object DBGrid1: TDBGrid
- Left = 0
- Top = 0
- Width = 413
- Height = 134
- Align = alClient
- DataSource = DataSource1
- DefaultDrawing = False
- PopupMenu = PopupMenu1
- TabOrder = 0
- TitleFont.Charset = ANSI_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- OnDrawColumnCell = DBGrid1DrawColumnCell
- OnDblClick = DBGrid1DblClick
- OnKeyDown = DBGrid1KeyDown
- end
- end
- object FormPage: TTabSheet
- Caption = 'FormPage'
- TabVisible = False
- object ScrollBox1: TScrollBox
- Left = 0
- Top = 0
- Width = 413
- Height = 134
- Align = alClient
- PopupMenu = PopupMenu1
- TabOrder = 0
- end
- end
- end
- object DataSource1: TDataSource
- DataSet = MiniTb
- OnStateChange = DataSource1StateChange
- OnDataChange = DataSource1DataChange
- Left = 8
- Top = 96
- end
- object MainMenu1: TMainMenu
- Left = 16
- Top = 8
- object Edit3: TMenuItem
- Caption = '&Edit'
- GroupIndex = 6
- object Cut1: TMenuItem
- Caption = '&Cut'
- OnClick = Cut1Click
- end
- object Copy1: TMenuItem
- Caption = '&Copy'
- OnClick = Copy1Click
- end
- object Paste1: TMenuItem
- Caption = '&Paste'
- OnClick = Paste1Click
- end
- object N4: TMenuItem
- Caption = '-'
- end
- object CopyRecord1: TMenuItem
- Caption = 'Copy &Record'
- OnClick = CopyRecord1Click
- end
- end
- object View1: TMenuItem
- Caption = '&View'
- GroupIndex = 6
- OnClick = View1Click
- object Gridview1: TMenuItem
- Caption = '&Grid view'
- OnClick = Gridview1Click
- end
- object Formview1: TMenuItem
- Caption = '&Form view'
- OnClick = Formview1Click
- end
- object Viewtabledesign1: TMenuItem
- Caption = '&View table design'
- OnClick = Tabledesign1Click
- end
- end
- object Format1: TMenuItem
- Caption = '&Format'
- GroupIndex = 6
- object Font1: TMenuItem
- Caption = '&Title font'
- OnClick = Font1Click
- end
- object Gridfont1: TMenuItem
- Caption = '&Grid font'
- OnClick = Gridfont1Click
- end
- object Gridlines1: TMenuItem
- Caption = '&Horizontal grid lines'
- Checked = True
- OnClick = Gridlines1Click
- end
- object Verticalgridlines1: TMenuItem
- Caption = '&Vertical grid lines'
- Checked = True
- OnClick = Verticalgridlines1Click
- end
- end
- object Edit1: TMenuItem
- Caption = '&Records'
- GroupIndex = 6
- object First1: TMenuItem
- Caption = '&First'
- OnClick = First1Click
- end
- object Last1: TMenuItem
- Caption = '&Last'
- OnClick = Last1Click
- end
- object Next1: TMenuItem
- Caption = '&Next'
- OnClick = Next1Click
- end
- object Prior1: TMenuItem
- Caption = '&Prior'
- OnClick = Prior1Click
- end
- object Find1: TMenuItem
- Caption = 'Find...'
- object First2: TMenuItem
- Caption = 'Find First'
- OnClick = First2Click
- end
- object Next2: TMenuItem
- Caption = 'Find Next'
- OnClick = Next2Click
- end
- object FindPrior1: TMenuItem
- Caption = 'Find Prior'
- OnClick = FindPrior1Click
- end
- object FindLast1: TMenuItem
- Caption = 'Find Last'
- OnClick = FindLast1Click
- end
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Insert1: TMenuItem
- Caption = '&Insert'
- OnClick = Insert1Click
- end
- object Delete1: TMenuItem
- Caption = '&Delete'
- OnClick = Delete1Click
- end
- object Edit2: TMenuItem
- Caption = '&Edit'
- OnClick = Edit2Click
- end
- object Cancelchanges1: TMenuItem
- Caption = '&Cancel changes'
- OnClick = Cancelchanges1Click
- end
- object Postchanges1: TMenuItem
- Caption = 'P&ost changes'
- OnClick = Postchanges1Click
- end
- object Bookmark1: TMenuItem
- Caption = '&Bookmark'
- OnClick = Bookmark1Click
- end
- end
- object Table1: TMenuItem
- Caption = '&Table'
- GroupIndex = 6
- object Sort1: TMenuItem
- Caption = '&Sort'
- OnClick = Sort1Click
- end
- object Restrictrange1: TMenuItem
- Caption = '&Apply range'
- OnClick = Restrictrange1Click
- end
- object Clearrange1: TMenuItem
- Caption = '&Clear range'
- OnClick = Clearrange1Click
- end
- object Search1: TMenuItem
- Caption = '&Find'
- OnClick = Search1Click
- end
- object Filter1: TMenuItem
- Caption = 'F&ilter'
- OnClick = Filter1Click
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object Emptytable1: TMenuItem
- Caption = '&Empty table'
- OnClick = Emptytable1Click
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object importdata21: TMenuItem
- Caption = 'I&mport data'
- OnClick = importdata21Click
- end
- object Exportdata1: TMenuItem
- Caption = 'E&xport data'
- object totextfile1: TMenuItem
- Caption = 'to text file'
- OnClick = totextfile1Click
- end
- object inExcelformat1: TMenuItem
- Caption = 'in Excel format'
- OnClick = inExcelformat1Click
- end
- end
- object N5: TMenuItem
- Caption = '-'
- end
- object Restructure1: TMenuItem
- Caption = '&Restructure'
- OnClick = Restructure1Click
- end
- object N7: TMenuItem
- Caption = '-'
- end
- object Analyze1: TMenuItem
- Caption = '&Analyze'
- OnClick = Analyze1Click
- end
- end
- end
- object MiniTb: TMiniTable
- ReadOnly = False
- Left = 8
- Top = 64
- end
- object FontDialog1: TFontDialog
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MinFontSize = 0
- MaxFontSize = 0
- Left = 40
- Top = 64
- end
- object OpenDialog1: TOpenDialog
- Left = 40
- Top = 96
- end
- object PopupMenu1: TPopupMenu
- OnPopup = PopupMenu1Popup
- Left = 92
- Top = 39
- object Quicksearch1: TMenuItem
- Caption = 'Quick search'
- OnClick = Quicksearch1Click
- end
- object Quickrestrict1: TMenuItem
- Caption = 'Quick filter'
- OnClick = Quickrestrict1Click
- end
- object Viewdetails1: TMenuItem
- Caption = 'Show in viewer'
- OnClick = Viewdetails1Click
- end
- object N6: TMenuItem
- Caption = '-'
- end
- object Cut2: TMenuItem
- Caption = 'Cut'
- OnClick = Cut1Click
- end
- object Copy2: TMenuItem
- Caption = 'Copy'
- OnClick = Copy1Click
- end
- object Paste2: TMenuItem
- Caption = 'Paste'
- OnClick = Paste1Click
- end
- end
- end
-